home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / applications / accounts / easycalc2.0f / easyrexx / unlock.erex < prev    next >
Encoding:
Text File  |  1997-11-20  |  260 b   |  19 lines
  1. /* EasyCalc 2.0 Arexx Script */
  2.  
  3. options results
  4.  
  5. 'getresponse "This script will unlock all cells." "_Begin"'
  6.  
  7. getsheetwidth
  8. maxx = result
  9.  
  10. getsheetheight
  11. maxy = result
  12.  
  13. do x = 0 for maxx+1
  14.   'showmessage' x 
  15.   do y = 0 to maxy+1
  16.     'setlock' x y 0
  17.   end
  18. end
  19.